home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4695 / giveway.17 / source / alien_vu.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  23KB  |  120 lines
  1. 10 HIDE
  2. 100 FOR
  3. 101 VARNAME
  4. 102 VARNAME
  5. 103 IF
  6. 104 NEXT
  7. 110 SCREEN COPY
  8. 111 VARNAME
  9. 12 DIM
  10. 120 SCREEN COPY
  11. 121 VARNAME
  12. 122 NEXT
  13. 123 SCREEN COPY
  14. 124 SCREEN COPY
  15. 13 DIM
  16. 14 DIM
  17. 15 ERASE
  18. 16 ERASE
  19. 20 GET PALETTE
  20. 200 UNTIL
  21. 21 VARNAME
  22. 22 GOSUB
  23. 30 SCREEN COPY
  24. 40 DIM
  25. 41 FOR
  26. 42 VARNAME
  27. 43 VARNAME
  28. 44 NEXT
  29. 45 VARNAME
  30. 46 MUSIC
  31. 47 AUTO BACK
  32. 48 INK
  33. 49 INK
  34. 5 REM Checked GFF א™
  35. 50 INK
  36. 5000 VARNAME
  37. 5001 VARNAME
  38. 5002 VARNAME
  39. 5003 VARNAME
  40. 5004 VARNAME
  41. 5005 VARNAME
  42. 5006 VARNAME
  43. 5007 VARNAME
  44. 5008 VARNAME
  45. 5009 VARNAME
  46. 5010 VARNAME
  47. 5011 VARNAME
  48. 5012 VARNAME
  49. 5013 VARNAME
  50. 5014 VARNAME
  51. 5015 VARNAME
  52. 5016 VARNAME
  53. 5017 VARNAME
  54. 5018 VARNAME
  55. 5019 VARNAME
  56. 5020 VARNAME
  57. 5021 VARNAME
  58. 5022 VARNAME
  59. 5023 VARNAME
  60. 5024 VARNAME
  61. 5025 VARNAME
  62. 5026 VARNAME
  63. 5027 VARNAME
  64. 5028 VARNAME
  65. 5029 VARNAME
  66. 5030 VARNAME
  67. 5031 VARNAME
  68. 5032 VARNAME
  69. 5033 VARNAME
  70. 5034 VARNAME
  71. 5035 VARNAME
  72. 5036 VARNAME
  73. 5037 VARNAME
  74. 5038 VARNAME
  75. 5039 VARNAME
  76. 5040 VARNAME
  77. 5041 VARNAME
  78. 5042 VARNAME
  79. 5043 VARNAME
  80. 5044 VARNAME
  81. 5045 VARNAME
  82. 5046 VARNAME
  83. 5047 VARNAME
  84. 5048 VARNAME
  85. 5049 VARNAME
  86. 5050 VARNAME
  87. 5051 VARNAME
  88. 5052 VARNAME
  89. 5053 VARNAME
  90. 5054 VARNAME
  91. 5055 VARNAME
  92. 5056 VARNAME
  93. 5057 VARNAME
  94. 5058 VARNAME
  95. 5059 VARNAME
  96. 5060 VARNAME
  97. 5061 VARNAME
  98. 5062 VARNAME
  99. 5063 VARNAME
  100. 5064 VARNAME
  101. 5065 VARNAME
  102. 5066 VARNAME
  103. 5067 VARNAME
  104. 5068 VARNAME
  105. 5099 RETURN
  106. 51 INK
  107. 52 INK
  108. 53 INK
  109. 54 INK
  110. 58 REPEAT
  111. 60 IF
  112. 70 SCREEN$
  113. 77 IF
  114. 80 FOR
  115. 82 VARNAME
  116. 84 INK
  117. 9 VARNAME
  118. 90 REM if LOOP=len(TEX$)-10 then LOOP=1 else inc LOOP
  119. 91 INC
  120.